Fritz: All Fritz/All Fritz.zip/All Fritz/FILES/PROGNG_C/CSUBR.LZH/TSECONDS.C

Text File | 1985-11-21 | 398b | 31 lines

int hour, min, sec, hund;

long seconds()
{

#asm
    PUSH    AX
    PUSH    CX
    PUSH    DX
    MOV        AX,2C00H
    INT        21H
    MOV        AH,00
    MOV        AL,CH
    MOV        WORD hour_,AX
    MOV        AL,CL
    MOV        WORD min_,AX
    MOV        AL,DH
    MOV        WORD sec_,AX
    MOV        AL,DL
    MOV        WORD hund_,AX
    POP        DX
    POP        CX
    POP        AX
#endasm

    return ((long)hour * 36000 + (long)min * 600
             + (long)sec * 10 + (long)hund / 10);

}